home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib08.dsk / CAPT SUBR.bas < prev    next >
BASIC Source File  |  2023-02-26  |  780b  |  14 lines
  1. 1  REM  * CAPTURE SUBROUTINE * BY DON RAVEY: COPYRIGHT (C) 1982 BY MICRO-SPARC, INC. LINCOLN, MA. 01773
  2. 2  TEXT : HOME : INVERSE : PRINT " TO CAPTURE A SUBROUTINE IN A TEXT FILE,": NORMAL 
  3. 4  PRINT "USING THE RIGHT ARROW KEY, COPY OVER THELINE NUMBER AND 'LIST', THEN ENTER THE": PRINT "BEGINNING AND ENDING LINE NUMBERS OF THESUBROUTINE,  <CR>,  THEN COPY OVER THE": PRINT "'RUN 10' COMMAND,  <CR>:"
  4. 6  VTAB 11: PRINT "]RUN 10"
  5. 8  VTAB 8: LIST 20: VTAB 9: PRINT "020": VTAB 8: END 
  6. 10 D$ =  CHR$(13) + CHR$(4)
  7. 12  TEXT : HOME : INPUT "ENTER FILE NAME: ";FI$: PRINT : PRINT "DO NOT INTERRUPT WHILE WRITING FILE!"
  8. 14  PRINT D$;"OPEN";FI$
  9. 16  PRINT D$;"WRITE";FI$
  10. 18  POKE 33,30
  11. 20  LIST XXX,XXX
  12. 22  PRINT D$;"CLOSE";FI$
  13. 24  TEXT : PRINT "  DONE.": END 
  14. 26  REM  -------------------